Softwarová Záchrana 3/Softwarova-zachrana-3.bin/Xteq X-Setup/xqdcXSP-Setup-EN.exe/{app}/plugins/XQ IE Clear History folder.xpl

Text File | 2004-04-28 | 6KB | 177 lines

"FILE"="Xteq Systems X-Setup Plugin 6.0"
"TYPE"="5"
"COUNT"="2"
"UIPATH"="Internet\Internet Explorer\Clear"
"NAME"="Clear History"
"VERSION"="2.02"
"OSVERSION"="00010111"
"LANGUAGE"="VBScript"
"TEXT 1"="Clear IE History Folder"
"TEXT 2"="Clear IE History Folder (Security Wipe)"
"DESCRIPTION 1"="This plug-in will totally erase any files in your Internet Explorer 'History' folder."
"DESCRIPTION 2"="If you apply the second option, every file found (except a file named index.dat) will be filled with garbage before deleting so even an undelete does not show what was inside the files."
"DESCRIPTION 3"="These options will not work if you have your History folder set in the registry using a variable, such as %USERPROFILE%\Local Settings\History [the %userprofile% is the variable.  Anything between two percent signs (example: %anything% ) is a variable].
"DESCRIPTION 4"="To enable these options to work, you must manually specify a History folder.  There is a plug-in included with X-Setup which will allow you to set a folder path for the IE History location."
"AUTHOR"="Xteq Systems (CptSiskoX)"
"CONTACTURL"="http://www.xteq.com"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"="Thanks to kplew for the bug notice!"


sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\History"

sPFRO="HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\PendingFileRenameOperations"
sPFRO_Txt="\??\"
iMaxIndexItems=2048
iCurIndexItem=0
Dim aryIndexItems()

sMsg_NotYet="We are sorry, but the PendingFileRenameOperations registry value can not be used for clearing since this value is already existing. Please restart your computer so these pending operations can be executed and start this plug-in again after that."
sMsg_Done="The history information has been cleared."
sMsg_Done2=" However, some file are in use by Windows so they can not be deleted right now. These files has been marked for deletion which will take place the next time this computer is restarted. Therefore, you should restart your computer as soon as possible."

Sub Plugin_Initialize
End Sub

Sub Plugin_CheckData(ElementIndex)
End Sub

Sub Plugin_Apply(ElementIndex,ElementSubIndex)
 ReDim aryIndexItems(iMaxIndexItems)
 iCurIndexItem=0

 If RegValueExists(sPFRO) then
    Call MsgError(sMsg_NotYet)
 else
    if ElementIndex=1 then
       Call DoWork(false)
    else
       Call DoWork(true)
    end if
 end if

'aAry=RegReadValue(sPath)
'i=LBound(aAry)
'msginformation cstr(i)

 'create an empty array
'Dim aryLoc()
'resize it to two value
'ReDim aryLoc(1)

'aryLoc(0)="\??\C:\Dokumente und Einstellungen\TeX HeX\Desktop\History.IE5\ "
'aryLoc(1)="ssdsdssd"
'Now write it
'Call RegWriteValue(sPFRO,aryLoc,5)
End Sub


Sub DoWork(EraseTotally)
    s=RegReadValue(sP)

    if folderexists(s) then
       i=FolderEnum(s)
       if i>0 then
          sBasePath=FolderEnumElement(1)
          iCount=FolderEnum(sBasePath)

          for i=1 to iCount
              Call KillDir(FolderEnumElement(i),EraseTotally,false)
          next

          'okay, now look for any remaing files...
          Call KillDir(sBasePath,EraseTotally,false)

          'now check for index.dat files to be deleted...
          iTotalCount=0
          i=0
          do while len(aryIndexItems(i))>0
             iTotalCount=iTotalCount+1
             i=i+1
          loop

          'msginformation "Total Count: " & iTotalCount

          if iTotalCount>0 then
             Dim aryFinal()
             ReDim aryFinal((iTotalCount*2)-1)

             for i=0 to iTotalCount-1
                 aryFinal((i+i))=sPFRO_Txt & aryIndexItems(i)
                 aryFinal((i+i)+1)=""
             next

             Call RegWriteValue(sPFRO,aryFinal,5)
          end if


          'done!
          if iTotalCount=0 then
             Call MsgInformation(sMsg_Done)
          else
             Call MsgInformation(sMsg_Done & sMsg_Done2)
             Call Restart()
          end if

       end if
    else
       msgerror "Unable to locate History folder - nothing done!"
    end if
end Sub


Sub KillDir(DirName,EraseTotally,KillDirAlso)
 iC=FileEnum(DirName & "*.*")

 for i=1 to iC
     sFile=FileEnumElement(i)
     bDoFileDel=true

     'index.dat can not be earased, always locked for writing... grr..
     if lcase(right(sFile,9))="index.dat" then ' and lcase(right(DirName,11))="history.ie5"
        bDoFileDel=false
        aryIndexItems(iCurIndexItem)=sFile
        iCurIndexItem=iCurIndexItem+1
     end if

     'it's not required to delete desktop.ini
     if lcase(right(sFile,11))="desktop.ini" then
        bDoFileDel=false
     end if


     if bDoFileDel=true then
        if EraseTotally then
           lC=TxtOpen(sFile)

           'replace contents of file
           for l=1 to lC
               Call TxtSetLine(l,"-")
           next

           'desktop.ini is special case..
           if right(sFile,11)="desktop.ini" then
              Call FileSetAttribute(sFile,"R-")
              Call FileSetAttribute(sFile,"H-")
              Call FileSetAttribute(sFile,"S-")
           end if

          Call TxtSave()
        end if

        'now kill the file
        FileDelete(sFile)
     end if

 next

 if KillDirAlso=true then
    FolderDelete(DirName)
 end if
End Sub


Sub Plugin_Terminate
End Sub